Filename	(eval 1113)[/usr/share/perl5/CGI.pm:932]
Statements	Executed 20 statements in 78µs
Eval Invoked At	/usr/share/perl5/CGI.pm line 932
Sibling evals	1, 2, 3, 4

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
0	0	0	0s	0s	CGI::::deleteCGI::delete

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package CGI; #### Method: delete
2					# Deletes the named parameter entirely.
3					####
4					sub delete {
5	2	18µs	2	7µs	my($self,@p) = self_or_default(@_); # spent 7µs making 2 calls to CGI::self_or_default, avg 3µs/call
6	2	28µs	2	19µs	my(@names) = rearrange([NAME],@p); # spent 19µs making 2 calls to CGI::Util::rearrange, avg 10µs/call
7	2	900ns			my @to_delete = ref($names[0]) eq 'ARRAY' ? @$names[0] : @names;
8	2	300ns			my %to_delete;
9	2	1µs			for my $name (@to_delete)
10					{
11	2	5µs			CORE::delete $self->{param}{$name};
12	2	500ns			CORE::delete $self->{'.fieldnames'}->{$name};
13	2	4µs			$to_delete{$name}++;
14					}
15	2	18µs	2	10µs	@{$self->{'.parameters'}}=grep { !exists($to_delete{$_}) } $self->param(); # spent 10µs making 2 calls to CGI::param, avg 5µs/call
16	2	2µs			return;
17					}
18
19					;